home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
mac
/
prime_CD
/
pb
/
PROFILE.DIR
/
00047_Script_~imps score script
< prev
next >
Wrap
Text File
|
1997-07-29
|
1KB
|
22 lines
global improlloverlist,imp_it,profimps_rolls
on exitFrame
set imp_it = TRUE
set_puppets([24,29],false)
puppetsprite 23, true
see_sprite([1,2,4,9,10,11,12,13,15,16,17,18,19,20,21,22,23,24,25,27,28,29],TRUE)
-- do field "01,im"
-- domacimp
-- set_cursors(profimps_rolls)
set omv = the mouseh
repeat while the mouseh = omv
end repeat
end
on domacimp
global improlloverlist
set impRolloverList = ["doimp(1)": rect(53, 52, 188, 148), "doimp(2)": rect(185, 52, 324, 147), "doimp(3)": rect(325, 52, 467, 152), "doimp(4)": rect(460, 52, 600, 152), "doimp(5)": rect(53, 151, 195, 248), "doimp(6)": rect(187, 152, 329, 251), "doimp(7)": rect(323, 148, 467, 251), "doimp(8)": rect(463, 148, 600, 249), "doimp(9)": rect(53, 251, 192, 347), "doimp(10)": rect(189, 250, 331, 349), "doimp(11)": rect(325, 250, 468, 350), "doimp(12)": rect(464, 250, 600, 348), "doimp(13)": rect(49, 345, 191, 446), "doimp(14)": rect(189, 350, 335, 446), "doimp(15)": rect(323, 348, 467, 446), "doimp(16)": rect(462, 345, 600, 446)]
end